home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / FGL402F.ZIP / EXFOR.ARJ / TEMP / 09-03.FOR < prev    next >
Text File  |  1995-01-31  |  1KB  |  39 lines
  1. $INCLUDE: 'C:\FG\FASTGRAF.FI'
  2.  
  3.       PROGRAM MAIN
  4.  
  5.       INTEGER I, J
  6.       INTEGER MODE, STATUS
  7.       INTEGER MINX, MAXX, MINY, MAXY
  8.       INTEGER*1 PCXPAL(768)
  9.       INTEGER*1 HEADER(128)
  10.       INTEGER FG_PCXHEAD, FG_PCXMODE, FG_PCXPAL
  11.  
  12.       CALL FG_INITPM
  13.       STATUS = FG_PCXHEAD('CORAL.PCX'//CHAR(0),HEADER)
  14.       IF (STATUS .EQ. -1) THEN
  15.          STOP 'Can''t open CORAL.PCX.'
  16.       ELSE IF (STATUS .EQ. -2) THEN
  17.          STOP 'CORAL.PCX is not a PCX file.'
  18.       END IF
  19.  
  20.       MODE = FG_PCXMODE(HEADER)
  21.       WRITE(6,10) MODE
  22. 10    FORMAT (' Optimal display mode is',I3,'.')
  23.  
  24.       CALL FG_PCXRANGE(HEADER,MINX,MAXX,MINY,MAXY)
  25.       WRITE(6,20) MAXX-MINX+1, MAXY-MINY+1
  26. 20    FORMAT(' Image size is ',I3,' by ',I3,' pixels.')
  27.  
  28.       STATUS = FG_PCXPAL('CORAL.PCX'//CHAR(0),PCXPAL)
  29.       WRITE(6,*) 'First 16 palette values are:'
  30.       J = 1
  31.       DO 40 I = 1,16
  32.          WRITE(6,30) I,PCXPAL(J),PCXPAL(J+1),PCXPAL(J+2)
  33. 30       FORMAT('   color ',I2,': R=',I2,' G=',I2,' B=',I2)
  34.          J = J + 3
  35. 40    CONTINUE
  36.  
  37.       STOP ' '
  38.       END
  39.